VBA

VBA-CreateObject

函数

Excel VBA

之

CreateObject  

函数

先看⼀下下⾯的句⼦，体会⼀哈：

Set d = CreateObject("Scripting.Dictionary")    '

建⽴字典对象变量

d 

Set xlApp = CreateObject("excel.application")   '

建⽴

Excel

对象变量

xlApp 

Set fso = CreateObject("Scripting.FileSystemObject")'

建⽴⽂件系统对象变量

fso 

CreateObject 

函数创建并返回⼀个对

 ActiveX 

对象的引⽤。

CreateObject 

函数⽰例

该⽰例使⽤

 CreateObject

函数设置⼀个对

 Microsoft Excel 

的引⽤

 (xlApp)

。它使⽤该引⽤来访问

Microsoft Excel 

的

 Visible

属性，并使⽤

 Microsoft Excel 

的

 Quit

⽅法将其关闭，最后再释放该引

⽤。

Dim xlApp As Object '

定义存放引⽤对象的变量。

Set xlApp = CreateObject("excel.application")  '

如果要让该应⽤程序可见，则需将

 Visible 

属性

设为

 True

。

xlApp.Visible = True '

可以使⽤

 xlApp 

访问

 Microsoft Excel 

的

 '

其它对象。

xlApp.Quit           '

完成时，调⽤

 Quit 

⽅法关闭

Set xlApp = Nothing      '

该应⽤程序，然后释放该引⽤。

注：当你想⽤

CreateObject 

函数创建某个对象时，先查找到其对应的

class 

以下是常见的。～

creatobject("adodb.recordset") 

数据库记录操作

creatobject("scripting.filesystemobject") 

⽂件操作

creatobject("wscript.shell") SHELL creatobject("wscript.network") 

⽹络操作

createobject("microsoft.xmlhttp") XMLHTTP 

，远程获取⽂件⽤的

createobject ("msxml2.xmlhttp.4.0") 

同上

createobject("adodb.stream") 

数据流传输

createobject("adodb.connection") 

数据库连接

createobject ("word. application ") WORD 

createobject ("excel. application ") EXCEL 

createobject ("mswc.adrotator") 

⼴告

 createobject("scripting.dictionary") HASH

表操作

createobject("powerpoint.application") 

createobject("Microsoft.XMLDOM") XML

操作

createobject("WScript.Shell") 

createobject("wscript.network") 

createobject("MSWC.adRotator") 

createobject("excel.sheet") 

createobject("frontpage.application") 

createobject("access.application") 

createobject("msgraph.application") 

createobject("photoshop.application") 

 //

关于

SQL Server

的

CreateObject("SQLDMO.SQLServer") 

CreateObject("SQLDMO.Login") 

CreateObject("SQLDMO.Backup") 

CreateObject("SQLDMO.User") 

CreateObject("SQLDMO.BackupDevice") 

CreateObject("SQLDMO.Database") 

CreateObject("SQLDMO.Restore")